home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / Magnum_Opus_2.2 / Magnum_Opus.Install < prev    next >
Text File  |  1997-09-21  |  9KB  |  277 lines
  1.  
  2. ; $VER: Magnum_Opus.Install 1.3 (22.09.97)
  3.  
  4. ;#############################################################################
  5. ;# Here is a special note for those people who like to hack other            #
  6. ;# peoples installation scripts.                                             #
  7. ;#                                                                           #
  8. ;# LEAVE THIS ALONE. 8^) It works very well without you interfering with it. #
  9. ;# However, if you think it can be improved give me a call. My details can   #
  10. ;# be found in the Magnum_Opus.Guide in "DOpus5:Help/"                       #
  11. ;#############################################################################
  12.  
  13. ;Magnum_Opus.Install version history
  14.  
  15. ;V1.0. (25 June 1997)
  16. ; * Initial release supplied with Magnum Opus V2.1
  17.  
  18. ;V1.1. (08 Sept 1997)
  19. ; * Removed some unnecessary Makedir commands as "copylib" & "copyfile" can do this.
  20. ; * It will now install new versions of files even if the old ones are read or write protected.
  21. ; * Now checks the default tooltype and stack of the Magnum_Opus.Guide.
  22. ; * Progress percentage indication re-done
  23.  
  24. ;V1.2. (13 Sept 1997)
  25. ; * Corrected run command to show Magnum_Opus.Guide, it nows uses complete path.
  26. ; I didn't spot this as I personally have Multiview made resident in the
  27. ; S:user-startup. Thanks go to Adam Lancaster for pointing this out to me.
  28.  
  29. ;V1.3. (22 Sept 1997)
  30. ; * Gave the user in "expert mode" the choice of where to put the filetypes.
  31. ; * Added check for existance of Filetypes_ORIGINAL directory.
  32. ;_________________________________________________________________________________
  33.  
  34. (set #welcome
  35.   (cat "\nWelcome to the installation of\n\n"
  36.        "Magnum Opus V2.2\n"
  37.        "Copyright © Richard Lane 1996-97"
  38.   )
  39. )
  40.  
  41. (welcome #welcome)
  42. (complete 5)
  43. ;===============================================================================
  44. ; First I need to check that the assign to DOpus5: exists.
  45.  
  46. (set #no-opus (cat "You don't appear to have Directory Opus V5.11 or above installed ")
  47. )
  48. (if (not (exists "DOpus5:DirectoryOpus"))
  49.     (abort #no-opus)
  50. )
  51. (complete 10)
  52. ;===============================================================================
  53. ; Now warn the user if they're running a Kickstart 2 Amiga.
  54. ; If it's a Kickstart 1.x Amiga then DOpus will NOT install in the first
  55. ; place and the above will pick this up, clever huh. Later I may do a proper
  56. ; check for this
  57.  
  58. (if (< (/ (getversion) 65536) 38)
  59.         (message "IMPORTANT NOTICE\n\nYou are using a Workbench 2.x Amiga.\n\n"
  60.         "Magnum Opus V2.1 has not been tested with this but should work OK\n"
  61.         "Please select what you want you want to do ?")
  62. )
  63. (complete 15)
  64. ;==============================================================================
  65. ; Now to check and display the version of Directory Opus in use.
  66.  
  67. (set vernum (getversion "DOpus5:DirectoryOpus"))
  68. (set ver (/ vernum 65536))
  69. (set rev (- vernum (* ver 65536) ) )
  70.  
  71. (message ("\nDirectory Opus V5.11, 5.5, 5.6 or greater is required\n\nyou have version %ld.%ld" ver rev)
  72. )
  73. (complete 20)
  74. ;==============================================================================
  75. ; OK, Let's go ....
  76.  
  77. (set #old-filetypes (cat
  78.           "You already have backed up filetypes in\n"
  79.           " \"DOpus5:Filetypes_ORIGINAL\" \n"
  80.           "from a previous installation of Magnum Opus. "
  81.           "Please rename this directory before installing this version "
  82.           "of Magnum Opus V2.2")
  83. )
  84. (if (exists "DOpus5:Filetypes_ORIGINAL")
  85. (abort #old-filetypes)
  86. )
  87. ;This is a new safety check to stop people who have installed a previous
  88. ;version overwriting their original filetypes even if they did not rename
  89. ;their "Filetypes_Original" directory. It also stops a problem with
  90. ;the following functions failing if the Filetypes_Original directory
  91. ;is delete protected.
  92.  
  93. (rename "DOpus5:Filetypes" "DOpus5:Filetypes_ORIGINAL")
  94.  
  95. (makedir "DOpus5:Filetypes")
  96.  
  97. (set where (askdir
  98.            (prompt "Where should I install the new filetypes ? \n"
  99.                    "Your current \"Filetypes\" Directory has been backed up as \n"
  100.                    "\"Filetypes_ORIGINAL\"")
  101.            (help @askdir-help)             ; I may add some extra help here later
  102.            (default "DOpus5:Filetypes")
  103. ))
  104.  
  105. (set @default-dest where)
  106.  
  107. (copyfiles
  108.           (prompt "Copying Filetypes. Please wait...")
  109.           (help @copyfiles-help)
  110.           (source "Filetypes")
  111.           (dest where)
  112.           (pattern "#?")
  113.           (optional force)
  114. )
  115.  
  116. (complete 50)
  117.  
  118. (message
  119.          "\n\nIf you need to run this installation again please rename "
  120.          "The Filetypes_ORIGINAL directory to another name or "
  121.          "you own filetypes will be lost forever."
  122. )
  123. (message "\n\n Phew, I'm glad that's finished.\n\nNext we'll install the help files")
  124. (complete 55)
  125. ;============================================================================
  126. ; Now for the Help files.
  127. ; As there's a version string in the old AmigaGuide file I can do a copylib.
  128.  
  129. (copylib
  130.          (prompt "Copying Help file")
  131.          (help @copylib-help)
  132.          (Source "help/Magnum_Opus.Guide")
  133.          (dest "DOpus5:Help")
  134.          (infos)              ;I want the new icon installed as this has the
  135.          (noposition)         ;proper copyright message in it.
  136.          (optional "force")
  137. )
  138.  
  139. ; Just to make sure some bright spark hasn't set the wrong default tooltype.
  140.  
  141. (tooltype
  142.         (Prompt "")
  143.         (help "")
  144.         (dest "DOpus5:Help/Magnum_Opus.Guide")
  145.         (setdefaulttool "Multiview")
  146.         (setstack 4096)
  147. )
  148. (complete 60)
  149.  
  150. (copyfiles
  151.          (prompt "Copying additional Help file parts")
  152.          (help @copyfiles-help)
  153.          (Source "help")
  154.          (dest "DOpus5:Help")
  155.          (pattern "~(#?.Guide|#?.info)")  ;this really works ???? yep.
  156.          (optional "force")
  157. )
  158. (complete 65)
  159.                           ;No confirm option on this as these bits are needed
  160.                           ;and I want the new versions of these installed.
  161.  
  162. ; By default DOpus 5 doesn't install a Drawer icon for the Help directory, this
  163. ; will check if there is one from the MWB_DOpus8 part of the distribution or
  164. ; another allready installed. This will also make it easier for novice users
  165. ; to find the Magnum2 help file !
  166.  
  167. (if (NOT (exists "DOpus5:help.info"))
  168.     (copyfiles
  169.           (prompt "")
  170.           (help @copyfiles-help)
  171.           (source "Help.info")
  172.           (dest "DOpus5:")
  173.           (noposition)
  174.           (optional "force")
  175.     )
  176. )
  177. (complete 70)
  178. ;==============================================================================
  179.  
  180. (message "\n\n Now for the modules, just one for now")
  181. (copyfiles
  182.          (prompt "Copying modules")
  183.          (help @copyfiles-help)
  184.          (Source "Modules")
  185.          (dest "DOpus5:Modules")
  186.          (pattern "#?")
  187.          (optional "force")
  188. )
  189. (complete 75)
  190. ;==============================================================================
  191.  
  192. (message "\n\n Next the ARexx bits")
  193. (copyfiles
  194.          (prompt "Copying ARexx bits")
  195.          (help @copyfiles-help)
  196.          (Source "ARexx")
  197.          (dest "DOpus5:ARexx")
  198.          (pattern "#?")
  199.          (optional "force")
  200. )
  201. (complete 80)
  202. ;==============================================================================
  203.  
  204. (message "\n\n Installing some demo buttons banks")
  205. (copyfiles
  206.          (prompt "Copying buttons")
  207.          (help @copyfiles-help)
  208.          (Source "Buttons")
  209.          (dest "DOpus5:Buttons")
  210.          (pattern "#?")
  211.          (optional "force")
  212. )
  213. (complete 85)
  214. ;==============================================================================
  215.  
  216. (message "\n\n Now for the Images to go in them")
  217.  
  218.  
  219. (copyfiles
  220.          (prompt "Copying NewImages")
  221.          (help @copyfiles-help)
  222.          (Source "NewImages")
  223.          (dest "DOpus5:NewImages")
  224.          (pattern "#?")
  225.          (infos)
  226.          (noposition)
  227.          (optional "force")
  228. )
  229. (complete 90)
  230. ;==============================================================================
  231.  
  232. (message "\n\n Now the icons")
  233. (copyfiles
  234.          (prompt "Copying Icons")
  235.          (help @copyfiles-help)
  236.          (Source "Icons")
  237.          (dest "DOpus5:Icons")
  238.          (pattern "#?")
  239.          (optional "force")
  240. )
  241. (complete 95)
  242.  
  243. (copyfiles
  244.          (prompt "and now the disk icons...")
  245.          (help @copyfiles-help)
  246.          (source "Disk_Icons")
  247.          (dest "DOpus5:Icons/Disk_Icons")
  248.          (pattern "#?")
  249.          (infos)
  250.          (noposition)
  251.          (optional "force")
  252. )
  253. (complete 100)
  254. ;===============================================================================
  255. (run "SYS:Utilities/Multiview DOpus5:Help/Magnum_Opus.Guide WINDOW"
  256.      (Help "I'll give you a clue, click Proceed.")
  257.      (prompt "\nDo you want to read the Magnum_Opus V2.2 AmigaGuide ?")
  258.      (confirm)
  259. )
  260.  
  261. (exit
  262.      "\nPlease read the AmigaGuide File called "
  263.      "\"Magnum_Opus.Guide\" which is now in "
  264.      "\"DOpus5:Help/\"\n\n"
  265.      "You will need to reboot for the new changes to take effect.\n\n"
  266.      "Don't forget that there is a drawer with some nice "
  267.      "Hard Disk icons in that you may like to use "
  268.      "Which can be found in \"DOpus5:Icons/Disk_Icons\"."
  269.      (quiet)
  270. )
  271.  
  272.  
  273. ;All done thank goodness for that.
  274.  
  275.  
  276.  
  277.